home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / finder.tcl < prev    next >
Text File  |  1996-01-06  |  233b  |  15 lines
  1.  
  2. # Send open folder event to Finder. Name must end in colon.
  3. proc openFolder {name} {
  4.     if {![regexp ".*:$" $name]} {
  5.         append name ":"
  6.     }
  7.     sendOpenEvent -r Finder $name
  8. }
  9.  
  10.  
  11. proc titlebar {name} {
  12.     switchTo Finder
  13.     openFolder $name
  14. }
  15.